perm filename LETALS.TEX[WEB,ALS]1 blob sn#731621 filedate 1983-11-27 generic text, type T, neo UTF8
% ∞tssec/Letter-Heads, Sign, Destinatary/

\let\at=\@
\let\per=\%
\def\langrestore{}
\def\english{\langrestore
	\let\langcoderestore=\¬
	\let\langrestore=\¬
	\def\date##1{\gdef\todate{##1, 1983}}
	\hyph 50}
\def\todate{}

\def\stanford{\let\jaddr=\saddr\let\jname=\sname
	      \def\ltfnt{\dunhill\baselineskip16pt}
	      \def\lbltop{{\hskip-5pt$\vcenter{\vskip18pt
					       \hbox to 40pt{\stanlogo B}
					       \vskip18pt}$}{\sname}{\saddr}}
              \def\jlogo{\hskip-60pt$\vcenter{\spose{\stanlogo T}}$\hskip 58pt}
	      \job}
\def\personal{\formalstyle\titlepage
	\def\ismemo{F}
	\def\hdid{}\def\fotfnt{\it}
	\def\lbltop{{}{\pname}{\paddr}}
	{\phdfnt\ctrcol{\paddr}}
	\vskip 40pt
	\rjustline{\teniu\todate\hskip 20pt}
	\vskip .5in}
\def\phdfnt{\eightpoint}

\def\smemo#1{\formalstyle
	     \normalpage
	     \def\fotfnt{\rm}
	     \def\ismemo{T}
	     \def\hdid{{\def\cr{ / }\saddr}}
	     \ctrline{\undertext{\hbox{\hquad\sanss\Memo\hquad}}}
	     \vskip 30pt
	     \cc{\To⊗#1\cr\zkip{1.5pt}\From⊗\sname\cr\zkip{1.5pt}}
	     \vskip 10pt}

\def\to#1{{\def\cr{α}\apply{\getfirst}{#1ααβ}{\hdid}}
	  \setbox9\vbox{\halign{\lft{##}\cr#1}}
	  \if T\ismemo{}
	     \else{\setbox7\vbox{\unbox7\apply{\lblfmt}{\lbltop{\box9}}{\label}\label}}
	  \vbox{\halign{\lft{##}\cr#1}}\yyskip\yskip}
\def\@{\par\chcode'15←13\chcode'45=13\def\%##1\
{}\getgente}

\def\sign#1{\par\dontbrk\vskip .3in
	    \rjustline{\lftcol{#1}\hskip 120pt\null}}
\def\signbar{\hfill\vbox{\hrule width 80pt}\cr\zkip{4pt}}

\def\cc#1{\halign{\lft{##}⊗\hquad\lft{##}\cr #1\cr}}

\def\fin{\endpage\if T\ismemo{}\else{\unbox7\endpage\setbox7\vbox{}}}

\def\sqip{\zkip{15 pt plus 2.5pt}}
\def\ssqip{\zkip{50 pt plus 10 pt}}
%∞pagebrk∞tssec/Phone & Addresses Directory/

\def\deskstyle{\columnsperpage{3}{2truein}{.125truein}{6.375truein}
	\setvsize{9.125truein}
	\def\lftcolskip{.0625truein}
	\def\genteskip{5pt plus 1pt minus 1pt}
	\def\nlfmt{\endpage\topspace.0625truein
		   \hbox{\sanss\ini}\vskip 5pt\hrule width\hpagesize\vskip15pt}}
\def\pocketstyle{\columnsperpage{2}{2.875truein}{.25truein}{7truein}
	\setvsize{6truein}
	\def\lftcolskip{.5truein}
	\def\genteskip{0pt}
	\def\nlfmt{\endpage}}

\def\phonebook#1{\gdef\@{\chcode'15=13\chcode'45=13{}\getpgente}
	\if T#1{\gdef\%##1\
{##1\cr}}\else{\gdef\%##1\
{}}
	\chcode'174=13
	\def\|{, }
	\def\ini{z}
	\let\fottypeface=\teniu\def\fotfnt{}
	\eightpoint
	\parindent0pt
	\fullpages
	\def\intercolsep{\ctr{\vbox to size{\leaders\vrule\vfill}}}
	\let\frameit=\pageframe
	\multicolfmt}
%∞pagebrk∞tssec/Internal Handling of Pages/

\def\job{\formalstyle
	 \titlepage
	 \gdef\ismemo{F}
	 \gdef\fotfnt{\rm}
	 \hbox to size{\jlogo$\vcenter{\ltfnt\lftcol{\jaddr}}$
		       \hfill$\vcenter{\eightpoint\lftcol{\whoswho\cr}}$}
	 \vskip 40pt\rjustline{\todate\hskip 75pt}\vskip 25pt}

\def\formalstyle{\endsheet
	\arabicnumbering{1}
	\gdef\btmnrspace{1in}
	\gdef\fotfnt{\rm}
	\computevsize{\epagesize}{\btmnrspace}
	\gdef\titpage{\box5}
	\gdef\nrmpage{\box5\btmstrip}
	\gdef\btmstrip{\vbox to
		       \btmnrspace{\vfill\fottypeface\fotfnt
				   \hbox to \hsheetsize{\hdid\hfill\todate\spose{\qquad\count0}}}}}

\def\lblfmt#1#2#3#4{
	\vbox{\boxit{\hbox to \lblwid{#1$\vcenter{\eightpoint\lftcol{#2\cr#3}}$}}
	      \vskip.2pt
	      \boxit{\hbox to \lblwid{\ctr{\vbox to \lblht{\mid{#4}}}}}}}
\def\lblwid{3.5truein}
\def\lblht{2truein}
\setbox7\vbox{}

\def\pageframe#1{\vbox{\def\boxitsep{0pt}\boxit{\hbox to \hsheetsize{\vbox to \epagesize{#1}}}
		       \vskip 5pt
		       \vbox to 0pt{\hbox to \hsheetsize{\ctr{\botfnt\count0}}\vss}
		       \hbox to \hsheetsize{\tenpoint\quad\lefth\hfill\righth\quad}}}

\def\getfirst#1α#2β{#1}
\def\invert#1|#2|#3β{\!#2 #1}
\def\firstchar#1#2β{#1}

\def\getgente#1\
#2@{\apply{\invert}{#1|{}|{}β}{\gente}{\def\
{\cr}\xdef\junkie{#2}}\to{\gente\cr\junkie}\chcode'15=5\chcode'45=5\let\%=\per\let\
=\¬}

\def\getpgente#1@{{\def\
{α}\xdef\gente{#1}\hdln{\gente}}{\def\
{\cr}\xdef\gente{#1}}\ljustline{\lftcol{\cr\gente}}
		  \chcode'15=5\chcode'45=5\vskip\genteskip\let\
=\¬}

\def\hdln#1{\apply{\firstchar}{#1β}{\junkie}
	     \if \junkie\ini{\null\yskip}\else{\xdef\ini{\junkie}\nlfmt}}
%∞pagebrk∞tssec/Global Initializations/

	\let\xxquote=\def
\let\oeng=\english
\xdef\english{\xxquote\oeng
	\def\Memo{MEMORANDUM}
	\def\To{{\caps To:}}
	\def\From{{\caps From:}}}
\let\oesp=\espanol
\xdef\espanol{\xxquote\oesp
	\def\Memo{MEMORANDUM}
	\def\To{{\caps Para:}}
	\def\From{{\caps De:}}}
\let\ofra=\francais
\xdef\francais{\xxquote\ofra
	\def\Memo{MEMORANDUM}
	\def\To{{\caps Pour:}}
	\def\From{{\caps De:}}}
	\let\xxquote=\¬

\let\fottypeface=\eightpoint
\oneside
\setvsize{9.75truein}
\setmargin{1.25truein}{0truein}{.75truein}{.9375truein}
\english

\def\pname{}
\def\sname{}
\def\lbltop{}
\def\whoswho{}
\def\hdid{}